RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**BARS 

BBBBBBBB AAAAAA RRRRRRRR SSSSSSSS 

BBBBBBBB AAAAAA RRRRRRRR SSSSSSSS 

BB BB AA AA RR RR SS 

BB BB AA AA RR RR SS 

BB BB AA AA RR RR SS 

BB BB AA AA RR RR SS 

BBBBBBBB AA AA RRRRRRRR SSSSSS 

BBBBBBBB AA AA RRRRRRRR SSSSSS 

BB BB AAAAAAAAAA RR RR SS 

BB BB AAAAAAAAAA RR RR SS 

BB BB AA AA RR RR SS eeee 

BB BB AA AA RR RR SS eevee 

BBBBBBBB AA AA RR RR SSSSSSSS eee 
Aa AA RR RR SSSSSSSS cece 

LL ilIIII SSSSSSSS 

LL III! SSSSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LELLLLLLLL IIIT] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 


ssh 
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BARS 1$-50 -1984 249: VAX-11 Bliss-32 V4.0-742 Pa 1 
1278 08-1 3c $3:68:33 DISKSVMSMASTER: CRUNOFF ..SRCIBARS.BLI;1 - (1) 
MODULE BARS ( ! 

1BLISS32E IDENT = 'V04=000' 

ADDRESSING_MODE (EXTERNAL =LONG, RELATIVE ,NONEXTERNAL=LONG_RELAT IVE) 


ds 


OOoooo 


MMMM 3 3 3 3 33 3 SI OOOO OOOO 


WN =O OONAUVE WN $$ O ODNOAOUS WN OOONOULS AN OOONOUS Wr 


BEGIN 


' 

i geeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeee 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

' DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 

® 

* 

® 

! ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. « 
® 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. * 
® 

* 

et 

* 

® 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| euigdeamensneeeibeneiebensubhansiedseeuncheseseeneennenreeenetseteaoneutie 
i 


SoOoOoOoCOCOOoOOSOOOOOOOOOOOSOOOCOOoOSooOO 


pepper ieielofeleielelolelelelololelelololelo loro! 


Wrororor: 


++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Processes .BEGIN BAR, .END BAR, .ENABLE BAR and .DISABLE BAR commands 


ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: September, 1978 


a tt ot a) hh SS Ss Ss Ss SS Ss A OOOO 
- 
Se 


WN OC ODNOUVE WN “OO ODNAUEWN (OO ONOU EWN ODOONOULS Wh 


BEF FAWN NANNING POPONONPONINPUNINIDS 2 2 OO oo 


SOoOooooooooocooo 
SOOOOCOCOCoOoOoooSoo 
FFF FW 


ee me me me em oe A OM OM OM OA OR OP EP OP, Om OP OM Om OM 8 kk 


= 
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V04-000 Revision History 1e=808=488t 4:68:93 NN ShAS Re NbnGe Seczeans.eu1:1°%* «2s 


38 


: ¢? rf: } XSBTTL "Revision History’ 

3 ‘ 4g MODIFIED BY: 

: 49 48 1 005 KFA00005 Ken Alden 7=Jun=1983 

3 29 1! Restored this module to pre-dsrplus qeye so that disable 
: 1 TY : bar does not restore the left margin. 

; 34 03¢ 1/ 004 KFA00004 Ken Alden 07-Mar-1983 

; 54 055 1! Global edit of all modules. Updated module names, idents, 
: 56 0035 ! copyright dates. Changed require files to BLISS library. 
; 6 1 ie. 


me 2 oe Oe ee ee ee ee ee es a ee a es as a es es es a ae 


Or1bbe 13:08:82 — SrSRSVMEMASTERSCKONOFe “SRcIBARS.eLI:1°%" «33 


ZSBTTL "Module Level Declarations’ 
t 

TABLE OF CONTENTS: 

i 


INCLUDE FILES: 


0 LIBRARY 'NXPORT:XPORT" ; ! XPORT Library 
0 1 
71 u 01 SIF DSRPLUS XTHEN 
, U IBRARY "REQ:DPLL IB"; ! DSRPLUS BLISS Library 
7% LIBRARY "REQ:DSRL IB"; ! DSR BLISS Library 
' 
i MACROS: 


EQUATED SYMBOLS: 


OWN STORAGE: 


EXTERNAL REFERENCES: 


tt I I IOQOOOOOCOOOCOCOOOOOAO 


EXTERNAL 
GCA : GCA DEFINITION 
RAC : IRAC_DEFINITION, 
Z1F DSRPLUS STvEN 
IR XED_ STRING 
SCA : SCA_ DEFINITION, 
TSF : TSF_DEFINITION; 


RIF pes THEN 
EXTERNAL ROUTINE 
Gerace 


RSKIPS; 


AAO 
OWONAVNE WN O OONOAUE WN 0 OONOAUEWN OO CONOUS 


cccc 


Tere Te Tee eee eee eee eee re rere rererere rere ererere rere re rere rereinreeeereeeieeete 
WOODWOOoNNNAN~ 
fwn—O0ew uw 
ccc 
Soooococcoooooooooooooooooooooo 
POPIPOPIPIPIPINIAPIPINIPYIPIPININPIPINININPIPIPIPINIPYPINYNY 


fPororonors 
™ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1R 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REVLSSSLESRANLSESSLEARA 


a a 


REQUIRE ‘REQ:RNODEF'; ! RUNOFF vertant definitions 
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BARS 15-58 =1984 23:49: VAX=-11 Bliss-32 V4.0-74 pP 
Module Level Declarations 12-808-138e #3:68:35 DISKSVMEHAS TERSCHUNOFE “SRCIBARS.BLI:1°%° (3 
GLOBAL ROUTINE BARS (HANDLER_CODE) : NOVALUE = ! 


i FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above. 

i FORMAL PARAMETERS: 

! HANDLER_CODE indicates which command is to be processed. 
i IMPLICIT INPUTS: None 


SRLS 


O woo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


! IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
' COMPLETION CODES: None 


i SIDE EFFECTS: None 


CH_BEGIN BAR] : 
peGin 
RIF DSRPLUS racks 


L 
NEW_CHANGE_CHAR; 
'Skip spaces and tabs until the (optional) quoted character. 
RSKIPS (IRA); 
'Get an optional character. If supplied, turn on bars only if the 
‘character matches the current change-bar character. 
NEW_CHANGE CHAR = GETQC (); 
IF ~.NEW CRANGE CHAR EQL - ‘User didn't supply new character. 
OR .REW_CHANGE_CHAR EQL .SCA_BAR_CHAR Character supplied matches current change-bar. 


N 
BEGIN 


GCA_BARS_ON = TRUE; ‘Indicate input text should be BARed if BARS are ena 
BARS"= .GCA_BARS_ENAB; in 


MEUM —O OBNOUE WN O OONOUES WN (OOONOUS WN O 


ccccccccccccec 
SOOOCOSOOCOOSOOOOSOOOOOOOSOOSOOSOOOOOOCOSOOSOOOCOC OOOO OCOOOOOOOOOOOOOOOO 


SNS SAA AAA AAA A AMM BP PEPE 
—_ 


DRAW SDS oo Wor Foard 2S Woe Goren Ls o-oo waren sroene 


tFI 


GCA_ 
ZIF DSRPLUS ZTHEN 
END 


cc 
> 
“NO 


2FI 
END; 


CH_END BARI : 
GCA_BARS_ON = FALSE; ‘Turn off generation of bars. 
GCA_BARS = FALSE; Foes 
END; 
CH_ENABLE _BAR) : 
BEGIN 


MEW —O OC 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
aie +HANDLER_CODE OF 


PEQXDAAMAAAMMaIa & tN 


—M—OCOwo ur fw -0Oow 


g 
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voce Module Level Declarations 18-sep = 198 #3 8; Q Tcsvmen men ASTER CKUNOFE “SRCIBARS.BLI:1 31 — (43 


: 163 ¥ ZIF DSRPLUS Phy ny 
; 165 ° NEW_CHANGE_CHAR; 
3 187 ; Be ski Pati tiF and tabs until the (optional) quoted character. 
: 19? U %6 'Get an optional chorecter. If supplied, replace the change-bar 
; 170 U shares ter with 
s Wi U 38 NEW_ CHANGE CHAR = eerac () 
3 Ha: U If ~ NEW _CRANGE_CHAR GTR 0° 'No character supplied (or err r) 
Hab te U ? HEN ‘if GETQC() returns value LEQ Q 0. 
: 123 U uF! SCA_BAR_CHAR = .NEW_CHANGE_CHAR; 
: 17 GCA_BARS_ENAB = .GCA_C :Enable bars unless forbidd th i 
; 85 i GCATBARS"S, GCA_CRD BAR AND “GCA_BARS. ON. ‘ Saree ae eae ee ee 
: 178 bg GCAL “EVER_BARS =~.GCK_BARS_ENAB; Change bars have been enabled in this document. 
; 180 6 END: 
9 é 09 CH_DISABLE_BAR) : 
3; 1 10 BEGIN ~ 
3; 1 11 GCA_BARS ne = FALSE; 'Disable generation of change bars. 
3s 85 \¢ GCA_BARS”= FALSE; hues 
3; «186 1 ND? 
3 \er 13 TES; 
: 189 1 ‘Associate change-bar characteristics with the input file. 
: 190 0317 iRAC BARS = .GCR BARS; = vtec heats 
: 192 0319 END; ‘End of BARS 
TITLE 


BARS 
IDENT \V04-000\ 
sEXTRN GCA, IRAC, TSF 
»PSECT SCODES,NOWRT,2 


0004 000 .ENTRY BARS, Save R2 : 0233 
5 000000006 EF 9€ 000 MOVAB A+d4 ; 
04 AC DO 00 MOVL HANDLER CODE, RO : 0357 
0 50 D CMPL + 0260 
Oc } 1 BNEG : 
04 A 1 B'SB2 gCAS 2 + 0275 
FC A 01 0 62 F 1 gche 4, #0, #1, GCA+20 ; ig 
42 11 0001C BRB ; 3 
38 D1 OOO1E 18: CMPL a0. #56 ; 0282 
6 12 BNEQ 2 3 
04 A2 BA BICB2 #1, GCA+28 F & 
1 BRB ; 5 
2F D1 9 2%: CMPL RO, #47 : 0288 
34 43. FO 00096 Wey g 9303 
EF EXTZV # GCA+76. R : 9382 
EF A EXTZ2V @ 3 
D2 0 R ; 


hoa of 


Avie. #0, #1, GCA+24 
+H: He  Gcase » RI 


= 


$042000 Module Level Declarations 13-Sep-1964 #3:68:35 Disk $y MehA AST ERCMUNOFT RCIBARS.BLI:1°9" “8 
BA 0004 BICB2 : 

oe 8 BOR ARR BP BB a: setts as 

12 " ; 3s: CRPL RO, a8 ; 9 
) ; BNEG ; ; 

Fc 83 1 Ba goose 48: BtERS. AI, Faso 33 

000000006 EF 01 0 FC A FO éb $3 INSV Hs Sia "$0. #1, IRAC ; sis 


; Routine Size: 107 bytes, Routine Base: $CODE$ + 0000 


° 
: 132 A 1 END 'End of modul 
; 'End of module 3 
; 195 33 2 0 ELUDOM : 
; PSECT SUMMARY 3 
; Name Bytes Attributes ; 
; SCODES 107 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics 3 
hia ee At yo eA 2. i. Ce “eel Symbols -------- Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
_$255$DUA28:(SYSLIBIXPORT.L32;1 9 0 252 0:00. : 
| ~$553$DUAS8; CRUNOFF SRC IDSRL16.L32;1 1348 20 1 86 80:00:38 ; 
: COMMAND QUALIFIERS : 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:BARS/OBJ=OBJ$:BARS MSRC$:BARS/UPDATE=(ENH$:BARS) : 
3; Size: 107 5 0 data bytes ; 
3; Run Time: Ae ’ : 
3; Elapsed Time 4 3 
3; Lines/CPU Min 338 : 
3 Lexemes/CPU-Min: 17386 3 
3 | Used: 38 pages : 
; Compilation Complete 3 


PMENT CORPORA 
AND PROPRIET 
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RY 


0337 Fea Vso 


